home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / misc / amigaguide_htw / miscellaneous / testprogram_close.rexx < prev    next >
OS/2 REXX Batch file  |  1997-12-12  |  331b  |  13 lines
  1. /* A test ARexx Program for Multiview/Amigaguide */
  2.  
  3. CALL CLOSE('STDOUT')
  4. CALL OPEN('STDOUT','CON:50/60/510/70/TEST WINDOW FOR MULTIVIEW AREXX PROGRAM')
  5. SAY 'a'x||' You have just EXITED the node about ONOPEN and ONCLOSE'
  6. SAY 'a'x'        This window should  go away in 4 seconds.'
  7.  
  8. DO WHILE TIME('E') < 4
  9. END
  10.  
  11. CLOSE('STDOUT')
  12. EXIT
  13.